object TestWildcardForm: TTestWildcardForm Left = 387 Top = 214 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Test wildcard email address' ClientHeight = 210 ClientWidth = 414 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poDesktopCenter PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 16 Top = 24 Width = 135 Height = 13 Caption = 'Wildcard address expression' end object Label2: TLabel Left = 16 Top = 64 Width = 97 Height = 13 Caption = 'Email address to test' end object Label3: TLabel Left = 288 Top = 24 Width = 114 Height = 13 Caption = '(may inlcude *, ?, and +)' end object Bevel1: TBevel Left = 16 Top = 160 Width = 385 Height = 3 end object Label4: TLabel Left = 16 Top = 104 Width = 49 Height = 13 Caption = 'Test result' end object WildcardEdit: TEdit Left = 160 Top = 24 Width = 121 Height = 21 TabOrder = 0 OnChange = AddressOrWildcardEditChange end object AddressEdit: TEdit Left = 160 Top = 64 Width = 121 Height = 21 TabOrder = 1 OnChange = AddressOrWildcardEditChange end object TestButton: TButton Left = 288 Top = 104 Width = 57 Height = 21 Caption = 'Test' TabOrder = 2 OnClick = TestButtonClick end object OKButton: TButton Left = 328 Top = 176 Width = 75 Height = 25 Caption = 'OK' Default = True TabOrder = 3 OnClick = OKButtonClick end object CancelButton: TButton Left = 240 Top = 176 Width = 75 Height = 25 Cancel = True Caption = 'Cancel' TabOrder = 4 OnClick = CancelButtonClick end object ResultEdit: TEdit Left = 160 Top = 104 Width = 121 Height = 21 Color = clBtnFace TabOrder = 5 end end